home *** CD-ROM | disk | FTP | other *** search
/ Publication 1 / Publication_01_19xx_-_de_Side_A.d64 / commercial town (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  21KB  |  736 lines
  1. 10 rem  ******************************
  2. 11 rem  *                            *
  3. 12 rem  * commercial town   fuer c64 *
  4. 13 rem  *                            *
  5. 14 rem  * von : peter fink           *
  6. 15 rem  *       8500 nuernberg 30    *
  7. 16 rem  *       stephanstrasse 20    *
  8. 17 rem  *       tel.: 0911/467930    *
  9. 18 rem  *                            *
  10. 19 rem  ******************************
  11. 99 print"[147]";
  12. 100 dimsn$(41)
  13. 150 poke53281,0:poke53280,0
  14. 200 sn$(0)=""
  15. 205 sn$(1)="     c o m m e r c i a l   t o w n"
  16. 210 sn$(2)="     [196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
  17. 215 sn$(3)=""
  18. 220 sn$(4)="        peter fink, februar 1985"
  19. 225 sn$(5)=""
  20. 230 sn$(6)="dieses spiel laeuft nach den originalen"
  21. 235 sn$(7)="monopoly-regeln. es koennen 1 - 4 spie-"
  22. 240 sn$(8)="ler teilnehmen. die auf 4 spieler feh-"
  23. 245 sn$(9)="lenedn werden vom computer simuliert."
  24. 250 sn$(10)="bei der eingabe von strassennamen brau-"
  25. 255 sn$(11)="chen nur die ersten drei buchstaben"
  26. 260 sn$(12)="eingegeben zu werden."
  27. 265 sn$(13)="               ausnahmen:"
  28. 270 sn$(14)="schillerstrasse und schlossallee: 4"
  29. 275 sn$(15)="hauptbahnhof und hauptstrasse:    6"
  30. 280 sn$(16)=""
  31. 285 sn$(17)="1 hotel entspricht 5 haeusern, das"
  32. 290 sn$(18)="heisst auch beim kauf und verkauf von"
  33. 295 sn$(19)="haeusern muessen hotels als 5 haeuser"
  34. 300 sn$(20)="eingegeben werden."
  35. 305 sn$(21)=""
  36. 310 sn$(22)=""
  37. 315 sn$(23)="            weiter -> [space]"
  38. 320 sn$(24)=""
  39. 325 sn$(25)="bei der abfrage nach den aktivitaeten"
  40. 330 sn$(26)="des spielers vor dem wuerfeln kann fol-"
  41. 335 sn$(27)="gende auswahl getroffen werden:"
  42. 340 sn$(28)="> h < wenn er haeuser kaufen will"
  43. 345 sn$(29)="> z < wenn er eine hypothek zurueck-"
  44. 350 sn$(30)="                           zahlen will."
  45. 355 sn$(31)="> k < wenn er einem mitspieler ein ver-"
  46. 360 sn$(32)="      kaufs- oder tauschangebot machen"
  47. 362 sn$(34)="> w < wenn er wuerfeln will."
  48. 365 sn$(33)="                                  will."
  49. 370 sn$(35)=""
  50. 375 sn$(36)="steht im feld 'standort': gefaengnis #[146]"
  51. 380 sn$(37)="so heisst das, dass der spieler nicht"
  52. 385 sn$(38)="nur zu besuch sondern echt im gefaeng-"
  53. 390 sn$(39)="nis ist."
  54. 395 sn$(40)=""
  55. 400 sn$(41)="            start -> [space]"
  56. 420 fora=0to22:print"[129]"sn$(a):next
  57. 422 gosub25000:printsn$(23)
  58. 425 geta$:ifa$<>" "then425
  59. 430 print"[147]";:fora=24to40:print""sn$(a):next
  60. 440 gosub25090:printsn$(41)
  61. 510 sn$(0)="[150][213][195][195][195][178][195][195][195][195][195][195][195][195][195][195][178][195][195][195][201][149][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  62. 520 sn$(1)="[150][194]***[194]  [158]besitz[150]  [194]***[194][149][194]    standort:     [149][194]"
  63. 530 sn$(2)="[150][171][195][195][195][203]  [197][197][197][197][197][197][150]  [202][195][195][195][179][149][194]                  [194]"
  64. 540 sn$(3)="[150][194]                  [194][149][194]                  [194]"
  65. 550 sn$(4)="[150][194]                  [194][149][194]                  [194]"
  66. 560 sn$(5)="[150][194]                  [194][149][171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]"
  67. 570 sn$(6)="[150][194]                  [194][149][194][159]                  [146][149][194]"
  68. 580 sn$(7)="[150][194]                  [194][149][194][159]                  [146][149][194]"
  69. 590 sn$(8)="[150][194]                  [194][149][194][159]                  [146][149][194]"
  70. 600 sn$(9)="[150][194]                  [194][149][194][159]                  [146][149][194]"
  71. 610 sn$(10)="[150][194]                  [194][149][194][159]                  [146][149][194]"
  72. 620 sn$(11)="[150][194]                  [194][149][194][159]                  [146][149][194]"
  73. 630 sn$(12)="[150][194]                  [194][149][194][159]                  [146][149][194]"
  74. 640 sn$(13)="[150][194]                  [194][149][202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
  75. 650 sn$(14)="[150][194]                  [194] spieler            "
  76. 660 sn$(15)="[150][194]                  [194][161]       [146][161] [129][213][195][195][195][195][195][195][195][201] "
  77. 670 sn$(16)="[150][194]                  [194][161]       [146][161] [129][194][149] zeit: [129][194] "
  78. 680 sn$(17)="[150][194]                  [194][188][162][162][162][162][162][162][162][146][190] [129][194]       [194] "
  79. 690 sn$(18)="[150][194]                  [194] [158]kapital  [129][202][195][195][195][195][195][195][195][203] "
  80. 700 sn$(19)="[150][194]                  [194][156][161]       [146][161]           "
  81. 710 sn$(20)="[150][194]                  [194][156][161]       [146][161] [213][195][195][195][195][195][195][195][201] "
  82. 720 sn$(21)="[150][194]                  [194][156][188][162][162][162][162][162][162][162][146][190] [194][152]frei p.[194] "
  83. 730 sn$(22)="[150][194]                  [194] [153][209] [209][146]   [209][146]  [194]       [194] "
  84. 740 sn$(23)="[150][194]                  [194] [153]   [146]  [209] [146]  [202][195][195][195][195][195][195][195][203] "
  85. 750 sn$(24)="[150][202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203] [153][209] [209][146] [209]  [146]           "
  86. 775 geta$:ifa$<>" "then775
  87. 776 print"[147]";
  88. 780 fora=0to24:printsn$(a);:next
  89. 795 poke56295,14:poke2023,102
  90. 1000 gosub25220
  91. 1100 gosub10900:gosub10800:print"dauer des spieles":gosub10800
  92. 1105 print"    (in min.)":gosub10800
  93. 1110 print"";:b$=""
  94. 1111 geta$:ifa$<>chr$(20)then1114
  95. 1112 iflen(b$)>0thenprint"[157] [157]";:b$=left$(b$,len(b$)-1)
  96. 1113 goto1111
  97. 1114 ifa$<>""anda$<>chr$(13)thenifasc(a$)<48orasc(a$)>57then1111
  98. 1115 printa$;:ifa$=chr$(13)andlen(b$)>0then1118
  99. 1116 b$=b$+a$:goto1111
  100. 1118 ru=val(b$)
  101. 1120 gosub10900:gosub10800
  102. 1125 print"anzahl der spieler":gosub10800
  103. 1130 print"";:b$=""
  104. 1131 geta$:ifa$<>chr$(20)anda$<>chr$(13)anda$<>""thenprinta$"[157]";:b$=a$
  105. 1132 ifa$=chr$(13)andlen(b$)=1then1134
  106. 1133 goto1131
  107. 1134 ifasc(b$)<48orasc(b$)>52then1120
  108. 1135 an=val(b$)
  109. 1140 gosub10900:ifan=0then1180
  110. 1145 fora=1toan
  111. 1150 print""sr$su$"[159]  name spieler "a
  112. 1155 printsr$"[145](bis zu 7 buchst.)
  113. 1156 [153]""su$sr$"anm.: verschiedenecmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";
  114. 1157 [153]"anfangsbuchstabencmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";
  115. 1158 [153]"waeren von vorteil"
  116. 1160 [153]sr$"";:b$[178]""
  117. 1161 [161]a$:[139]a$[179][177][199](20)[167]1164
  118. 1162 [139][195](b$)[177]0[167][153]"cmd cmd";:b$[178][200](b$,[195](b$)[171]1)
  119. 1163 [137]1161
  120. 1164 [139][195](b$)[177][178]7[167]1168
  121. 1165 [139]a$[178][199](13)[167]1167
  122. 1166 [153]a$;:b$[178]b$[170]a$:[137]1161
  123. 1167 [139][195](b$)[178]0[167]1161
  124. 1168 sp$(a)[178]b$:[141]10900
  125. 1170 [130]a
  126. 1175 [139]an[178]4[167]1200
  127. 1180 b[178]1:[129]a[178]an[170]1[164]4
  128. 1185 sp$(a)[178]na$(b):b[178]b[170]1
  129. 1190 [130]a
  130. 1195 sp$(5)[178]"bank"
  131. 1200 [129]a[178]1[164]40:sb(a)[178]0:[130]
  132. 1205 [129]a[178]1[164]4:po(a)[178]1:[130]
  133. 1210 bb$(0)[178]" ":bb$(1)[178]"1":bb$(2)[178]"2":bb$(3)[178]"3":bb$(4)[178]"4":bb$(5)[178]"atn"
  134. 1215 [129]a[178]1[164]4:s$(a)[178][200](sp$(a),1):[130]
  135. 1220 fp[178]0:ez[178]1:gz[178]1
  136. 2995 ti$[178]"000000":[141]20000
  137. 3000 [129]z[178]1[164]4:ll[178]0:p[178]0:wp$[178]"":[139]po(z)[178]0[167]3995
  138. 3010 [141]7000
  139. 3015 [141]6000
  140. 3020 [141]10000
  141. 3025 [141]5000
  142. 3030 [141]8000
  143. 3035 [139]pg(z)[178]1[167]21000
  144. 3040 [139]z[177]an[167][141]13000:[137]3100
  145. 3042 [141]10900
  146. 3045 [153]""sr$su$"open * aktivitaeten *"
  147. 3050 [153]""sr$su$"haus kaufen   -> h"
  148. 3051 [153]""sr$su$"hyp. z'zahlen -> z"
  149. 3052 [153]""sr$su$"angeb. mitsp. -> k"
  150. 3053 [153]""sr$su$"wuerfeln      -> w"
  151. 3054 tm$[178]ti$
  152. 3055 [161]a$:[139]a$[178]""[167]3055
  153. 3057 ti$[178]tm$
  154. 3060 [139]a$[178]"h"[167][141]10900:[141]12000:[137]3042
  155. 3065 [139]a$[178]"z"[167][141]10900:[141]11000:[137]3042
  156. 3070 [139]a$[178]"k"[167][141]10900:[141]16000:[137]3042
  157. 3075 [139]a$[179][177]"w"[167]3045
  158. 3100 [141]22000
  159. 3105 [141]9000
  160. 3110 [141]5000
  161. 3200 [139]lo[178]1[175]po(z)[179][177]1[167]i[178]4000:[137]3210
  162. 3205 [139]lo[178]1[175]po(z)[178]1[167]i[178]8000:[137]3210
  163. 3206 [137]3220
  164. 3210 [141]10900:[141]10800:[153]""sp$(z)" bekommt"
  165. 3215 [141]10800:[153]""i"dm."
  166. 3216 ge(z)[178]ge(z)[170]i
  167. 3218 lo[178]0:[129]a[178]1[164]1500:[130]
  168. 3220 [139]po(z)[178]5[176]po(z)[178]39[167][141]20500
  169. 3225 [139]po(z)[178]8[176]po(z)[178]23[176]po(z)[178]37[167]23000
  170. 3230 [139]po(z)[178]3[176]po(z)[178]18[176]po(z)[178]34[167]23100
  171. 3235 [139]z2[178]1[167]z2[178]0:[137]3995
  172. 3240 [139]po(z)[178]11[167][141]10900:[137]3285
  173. 3245 [139]po(z)[178]21[167][141]10900:[141]10800:[153]""sp$(z)" bekommt"
  174. 3250 [139]po(z)[178]21[167][141]10800:[153]""fp"dm."
  175. 3255 [139]po(z)[178]21[167]ge(z)[178]ge(z)[170]fp:fp[178]0
  176. 3260 [139]po(z)[178]31[167]pg(z)[178]1:wu[178]20:[137]3105
  177. 3265 [139]fa(po(z))[178]10[167][141]24000
  178. 3270 [139]fa(po(z))[178]9[167][141]24200
  179. 3275 [139]fa(po(z))[177]0[175]fa(po(z))[179]9[167][141]24400
  180. 3280 [139]z2[178]1[167]z2[178]0:[137]3995
  181. 3285 [141]7000:[141]20000
  182. 3287 [129]a[178]1[164]1000:[130]
  183. 3290 [139]wp$[178]"pasch"[175]pg(z)[178]0[167]3400
  184. 3295 [137]3990
  185. 3400 [139]z[179][178]an[167]3100
  186. 3410 [141]10900:[141]10800:[153]"pasch: nochmal!":[129]a[178]1[164]1500:[130]:[137]3100
  187. 3990 [129]a[178]1[164]1000:[130]
  188. 3992 [141]10900
  189. 3995 [130]z:[139]tt[177]ru[167]27100
  190. 3996 [137]3000
  191. 5000 [153]"wait"[200](re$,22);"print                 cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";
  192. 5005 [153]"                 "
  193. 5010 [153]""[200](re$,22);"print";sn$(po(z))" "bb$(sb(po(z)))"wait";
  194. 5015 [139]pg(z)[178]1[167][153]"cmd#"
  195. 5020 [139]fa(po(z))[177]0[167][153]""[200](re$,22)"defbesitzer: "sp$(be(po(z)))
  196. 5025 [129]a[178]1[164]100:[130]
  197. 5030 [153]"wait"[200](re$,22);"print                 cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";
  198. 5035 [153]""[200](re$,22);"print";sn$(po(z))" "bb$(sb(po(z)));
  199. 5040 [139]pg(z)[178]1[167][153]"cmd#wait"
  200. 5050 [142]
  201. 6000 [153]""[200](re$,21);[200](un$,16);"       wait"
  202. 6010 [153]""[200](re$,21);[200](un$,16);""sp$(z)"wait"
  203. 6015 [142]
  204. 7000 ge(z)[178][181](ge(z)[173]10)[172]10:g$[178][201]([196](ge(z)),[195]([196](ge(z)))[171]1)
  205. 7005 [153]"clr"[200](re$,21);[200](un$,20);"       wait"
  206. 7010 [153]"clr"[200](re$,21);[200](un$,20);""g$"wait"
  207. 7015 [142]
  208. 8000 zl[178]4:j[178]1
  209. 8002 [129]b[178]0[164]ko(j)[171]1:i[178]st(j,b)
  210. 8005 [139]be(i)[179][177]z[167]8020
  211. 8007 [139]zl[178]22[167][141]8200
  212. 8010 [153]""[200](un$,zl)""fa$(fa(i))"              wait - "bb$(sb(i));
  213. 8011 [139]hy(i)[178]1[167][153]"cmdh";
  214. 8012 [153]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd"sn$(i):zl[178]zl[170]1
  215. 8020 [130]b
  216. 8025 j[178]j[170]1:[139]j[178]11[167][142]
  217. 8030 [137]8002
  218. 8200 [139]z[177]an[167]8300
  219. 8202 [153]""[200](un$,zl[170]1)"listweiter mit <space>"
  220. 8204 tm$[178]ti$
  221. 8205 [161]a$:[139]a$[178]""[167]8205
  222. 8206 ti$[178]tm$
  223. 8210 [141]10000:zl[178]4:[142]
  224. 8300 [129]a[178]1[164]2000:[130]:[137]8210
  225. 9000 [129]a[178]1[164][182](wu):q[178]0
  226. 9005 [129]i[178]1[164]4:[139]i[178]z[167]9015
  227. 9010 [139]po(z)[178]po(i)[167]q[178]1:j[178]i
  228. 9015 [130]i
  229. 9020 [139]q[178]0[167]9030
  230. 9025 [139][198](s$(j))[179]65[167][151]kn(po(z))[170]54272,1:[151]kn(po(z)),[198](s$(j)):[137]9050
  231. 9027 [151]kn(po(z))[170]54272,1:[151]kn(po(z)),[198](s$(j))[171]64:[137]9050
  232. 9030 [151]kn(po(z))[170]54272,fb(po(z)):[151]kn(po(z)),ze(po(z))
  233. 9050 po(z)[178]po(z)[170][180](wu)
  234. 9055 [139]po(z)[177]40[167]po(z)[178]po(z)[171]40:[139]ll[178]0[175]pg(z)[178]0[167]lo[178]1
  235. 9060 [139][198](s$(z))[179]65[167][151]kn(po(z))[170]54272,1:[151]kn(po(z)),[198](s$(z)):[137]9070
  236. 9065 [151]kn(po(z))[170]54272,1:[151]kn(po(z)),[198](s$(z))[171]64
  237. 9070 [130]a:[142]
  238. 10000 [153]"wait";
  239. 10005 [129]a[178]1[164]20
  240. 10010 [153]"                  cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";
  241. 10015 [130]
  242. 10020 [142]
  243. 10800 [153]""su$sr$"open";:[142]
  244. 10900 [153]""su$sr$lo$lp$lq$:[142]
  245. 11000 [141]10900:[141]10800:[153]"auf welcher":[141]10800
  246. 11002 [153]"strasse willst du":[141]10800:[153]"eine hypothek"
  247. 11004 [141]10800:[153]"zurueckzahlen ?"
  248. 11010 [141]19000:[141]10800:[153]"auf "at$(i):[139]fe[178]1[167]11025
  249. 11020 [139]hy(i)[178]1[175]ge(z)[177][178].6[172]pr(i)[167]11030
  250. 11025 [141]10800:[153]"falsche eingabe!":[137]11050
  251. 11030 hy(i)[178]0:ge(z)[178]ge(z)[171].6[172]pr(i)
  252. 11035 kp(z,fa(i))[178]kp(z,fa(i))[170]1
  253. 11040 [141]10000:[141]8000:[141]7000
  254. 11050 [129]a[178]1[164]1500:[130]:[142]
  255. 12000 [141]10900:[141]10800
  256. 12005 [153]"auf welche":[141]10800:[153]"strassen willst":[141]10800
  257. 12010 [153]"du haeuser bauen?":[141]10800:[153]"(die 1. angeben)"
  258. 12015 [141]19000:[139]fe[178]1[167]12500
  259. 12020 [139]be(i)[179][177]z[167]12500
  260. 12025 [139]i[177]38[167]12500
  261. 12027 [139]fa(i)[179]1[176]fa(i)[177]8[167]12500
  262. 12030 r[178]i
  263. 12035 w(0)[178]0:w(1)[178]0:w(2)[178]0
  264. 12040 [129]j[178]0[164]ko(fa(r))[171]1:b(j)[178]st(fa(r),j):b$(j)[178]sn$(st(fa(r),j))
  265. 12045 [139]be(b(j))[179][177]z[167]q[178]1
  266. 12050 [130]j
  267. 12055 [139]q[178]1[167]q[178]0:[137]12500
  268. 12065 [141]10900:[141]10800:[153]"wieviele auf .."
  269. 12070 [129]i[178]0[164]ko(fa(r))[171]1
  270. 12075 [141]10800:[153][200](un$,i[170]2)""b$(i);
  271. 12080 [161]w$(i):[139]w$(i)[178]""[167]12080
  272. 12085 [139][198](w$(i))[179]48[176][198](w$(i))[177]53[167]12080
  273. 12090 [141]10800:[153][200](un$,i[170]2)""w$(i):w(i)[178][197](w$(i))
  274. 12095 [130]i
  275. 12097 [139][182](sb(b(0))[170]w(0)[171]sb(b(1))[171]w(1))[177]1[167]12500
  276. 12100 [139]ko(fa(r))[178]3[175][182](sb(b(1))[170]w(1)[171]sb(b(2))[171]w(2))[177]1[167]12500
  277. 12105 [139]ko(fa(r))[178]3[175][182](sb(b(0))[170]w(0)[171]sb(b(2))[171]w(2))[177]1[167]12500
  278. 12110 [129]i[178]0[164]ko(fa(r))[171]1
  279. 12115 [139]sb(b(i))[170]w(i)[177]5[167]q[178]1
  280. 12120 [130]i
  281. 12125 [139]q[178]1[167]q[178]0:[137]12500
  282. 12130 py[178][181]((fa(r)[170]1)[173]2)[172]1000[172](w(0)[170]w(1)[170]w(2))
  283. 12135 [141]10800:[153]"preis:"py:[141]19500
  284. 12140 [139]pj[178]1[167][142]
  285. 12145 [129]i[178]0[164]ko(fa(r))[171]1
  286. 12150 sb(b(i))[178]sb(b(i))[170]w(i)
  287. 12155 gt[178]gt[170]w(i)
  288. 12160 [130]i
  289. 12165 ge(z)[178]ge(z)[171]py:[141]7000:[141]10000:[141]8000:[129]a[178]1[164]2000:[130]:[142]
  290. 12500 [141]10800:[153]"falsche eingabe!":[129]a[178]1[164]2000:[130]:[142]
  291. 13000 [141]13900:[141]14000:[139]s2[178]1[167]13900
  292. 13005 [141]15000:[139]s2[178]1[167][141]13900
  293. 13010 [141]13100:[142]
  294. 13100 j[178]0:k[178]0:m2[178]9:kj[178]0
  295. 13105 l(0)[178]0:l(1)[178]0
  296. 13110 [129]i[178]1[164]8
  297. 13115 [139]kp(z,i)[178]ko(i)[167]k(j)[178]i:j[178]j[170]1:k[178]1
  298. 13120 [130]i:[139]k[178]0[167]13400
  299. 13125 [129]k[178]1[164]j
  300. 13130 [139]ge(z)[179]gt[172]200[170][187](1)[172]5000[176]ge(z)[179]3[172]([181]((k(j[171]1)[170]1)[173]2)[172]1000)[167]13400
  301. 13135 h[178][181](([187](1)[173]4[170].5)[172]ge(z))
  302. 13140 m[178][181]([187](1)[172]j):[139]m[178]m2[167]m[178]m[170]1:[139]m[178]j[167]m[178]0
  303. 13145 n[178][181](h[173](([181]((k(m)[170]1)[173]2)[172]1000)))
  304. 13150 [139]n[178]0[167]13345
  305. 13155 m2[178]m
  306. 13160 [129]i[178]0[164]ko(k(m))[171]1
  307. 13165 b$(i)[178]sn$(st(k(m),i)):b(i)[178]st(k(m),i):[130]i
  308. 13190 y[178]sb(b(0))[170]sb(b(1))[171](sb(b(2))[172](ko(k(m))[178]3))
  309. 13195 [139]y[170]n[177]5[172]ko(k(m))[167]n[178]5[172]ko(k(m))[171]y
  310. 13200 [139]n[178]0[167]13345
  311. 13210 [139]ko(k(m))[178]2[167]13250
  312. 13215 [139]sb(b(0))[178]sb(b(1))[175]sb(b(0))[178]sb(b(2))[167]13230
  313. 13220 [139]sb(b(1))[179]sb(b(2))[175]sb(b(1))[179]sb(b(0))[167]l(1)[178]1:n[178]n[171]1:[137]13230
  314. 13225 [139]sb(b(0))[178]sb(b(1))[175]sb(b(1))[179]sb(b(2))[167]l(0)[178]1:l(1)[178]1:n[178]n[171]2
  315. 13230 [139][181](n[173]3)[178]n[173]3[167]c(0)[178]n[173]3:c(1)[178]c(0):c(2)[178]c(0)
  316. 13235 [139][181]((n[170]2)[173]3)[178](n[170]2)[173]3[167]c(0)[178][181](n[173]3):c(1)[178]c(0):c(2)[178]c(0)[170]1
  317. 13240 [139][181]((n[170]1)[173]3)[178](n[170]1)[173]3[167]c(0)[178][181](n[173]3)[170]1:c(1)[178]c(0)[171]1:c(2)[178]c(0)
  318. 13245 c(0)[178]c(0)[170]l(0):c(1)[178]c(1)[170]l(1):n[178]n[170]l(0)[170]l(1):[137]13272
  319. 13250 [139]sb(b(0))[178]sb(b(1))[167]13260
  320. 13255 l(0)[178]1:n[178]n[171]1
  321. 13260 [139][181](n[173]2)[178]n[173]2[167]c(0)[178]n[173]2:c(1)[178]c(0)
  322. 13265 [139][181]((n[170]1)[173]2)[178](n[170]1)[173]2[167]c(0)[178][181](n[173]2):c(1)[178]c(0)[170]1
  323. 13270 c(0)[178]c(0)[170]l(0):n[178]n[170]l(0)
  324. 13272 [129]g[178]0[164]ko(k(m))[171]1
  325. 13273 [139]c(g)[170]sb(b(g))[177]5[167]n[178]n[171](c(g)[170]sb(b(g))[171]5):c(g)[178]5[171]sb(b(g))
  326. 13274 [130]g:[139]n[178]0[167]13345
  327. 13275 [141]10900:[141]10800:[153]""sp$(z)" kauft":[141]10800
  328. 13280 [153]"haeuser:   auf.."
  329. 13285 l(0)[178]0:l(1)[178]0
  330. 13290 [129]g[178]0[164]ko(k(m))[171]1
  331. 13295 [141]10800:[153][200](un$,g[170]4)""b$(g)
  332. 13300 [141]10800:[153][200](un$,g[170]4)""c(g)
  333. 13305 [130]g
  334. 13310 [129]i[178]0[164]ko(k(m))[171]1
  335. 13315 sb(b(i))[178]sb(b(i))[170]c(i)
  336. 13320 gt[178]gt[170]c(i)
  337. 13325 [130]i
  338. 13330 ge(z)[178]ge(z)[171]n[172][181]((k(m)[170]1)[173]2)[172]1000
  339. 13335 xj[178]j:[141]7000:[141]10000:[141]8000:j[178]xj
  340. 13340 [129]a[178]1[164]2000:[130]a
  341. 13345 [130]k
  342. 13400 [142]
  343. 13900 [141]10900
  344. 13910 [141]10800:[153]"* aktivitaeten *":[142]
  345. 14000 i[178]0:s2[178]0
  346. 14010 i[178]i[170]1:[139](be(i)[179][177]z[176]hy(i)[178]0)[175]i[179]40[167]14010
  347. 14020 [139]i[179]40[167]14060
  348. 14030 [139]be(40)[178]z[175]hy(40)[178]1[167]14060
  349. 14040 [139]s2[178]1[167][141]7000:[141]10000:[141]8000
  350. 14050 [142]
  351. 14060 [139]ge(z)[179].8[172]pr(i)[167]14040
  352. 14070 [141]10900:[141]10800:[153]""sp$(z)" zahlt":[141]10800
  353. 14075 [153]"hypothek auf "at$(i):[141]10800:[153]""sn$(i)
  354. 14078 [141]10800:[153]"zurueck.
  355. 14080 ge(z)=ge(z)-.6*pr(i):hy(i)=0:s2=1
  356. 14085 kp(z,fa(i))=kp(z,fa(i))+1
  357. 14090 fora=1to1500:next
  358. 14095 ifi=40then14040
  359. 14100 goto14010
  360. 15000 s2=0:n=0
  361. 15005 fori=1to8:a$="":z4=0:z5=0:z6=0:z7=0:ifn>=2then15090
  362. 15010 ifkp(z,i)=ko(i)orkp(z,i)=0then15090
  363. 15015 forj=1to4:ifj=zorz4<>0then15025
  364. 15020 ifkp(j,i)>0thenz4=j
  365. 15025 nextj
  366. 15030 ifz4=0then15090
  367. 15035 fork=1to8:ifk=iorz5<>0then15045
  368. 15040 if(kp(z4,k)=1orkp(z4,k)=2andko(k)=3)andkp(z,k)=1thenz5=k
  369. 15045 nextk
  370. 15050 ifz5=0then15069
  371. 15055 m=-1
  372. 15057 m=m+1:ifbe(st(i,m))<>z4then15057
  373. 15060 z7=st(i,m):m=-1
  374. 15062 m=m+1:ifbe(st(z5,m))<>zthen15062
  375. 15065 z6=st(z5,m):gosub17500:n=n+1:s2=1:goto15090
  376. 15069 m=-1
  377. 15070 m=m+1:ifbe(st(i,m))<>z4then15070
  378. 15075 z7=st(i,m):pt=int((pr(z7)*(1.9+rnd(1)*1.4))/100)*100
  379. 15080 ifge(z)<ptthen15090
  380. 15085 gosub17000:s2=1:n=n+1
  381. 15090 ifa$="j"thengosub10000:gosub8000:gosub7000
  382. 15092 nexti
  383. 15095 ifs2=1thenfora=1to3000:next
  384. 15097 return
  385. 16000 n=0
  386. 16002 n=n+1:ifn=3then16500
  387. 16005 gosub10900:gosub10800:print"welche strasse":gosub10800
  388. 16006 print"willst du ?"
  389. 16010 gosub19000:iffe=1then16500
  390. 16012 fora=1to800:next
  391. 16015 z7=i
  392. 16020 ifsb(i)>0then16500
  393. 16030 forj=0toko(fa(j))-1:b(j)=st(fa(i),j)
  394. 16035 nextj
  395. 16040 ifsb(b(1))>0then16500
  396. 16045 ifm=3andsb(b(2))>0then16500
  397. 16050 gosub10900:gosub10800:print"von wem willst":gosub10800
  398. 16051 print"du "ar$(z7):gosub10800:print""sn$(z7)" ?"
  399. 16055 z4=0
  400. 16060 tm$=ti$
  401. 16065 geta$:ifa$=""then16065
  402. 16066 ti$=tm$
  403. 16070 fork=1to4:ifk=zthen16075
  404. 16072 ifa$=left$(sp$(k),1)thenz4=k
  405. 16075 nextk
  406. 16080 ifz4=0orz4<>be(i)then16500
  407. 16085 gosub10800:print""sp$(z4)
  408. 16088 fora=1to1000:next
  409. 16090 gosub10900:gosub10800:print"willst du":gosub10800
  410. 16095 print"kaufen (v) oder":gosub10800:print"tauschen (t) ?"
  411. 16099 tm$=ti$
  412. 16100 geta$:ifa$<>"v"anda$<>"t"then16100
  413. 16101 ti$=tm$
  414. 16105 ifa$="t"then16140
  415. 16110 gosub10800:print"zu welchem preis?"
  416. 16113 b$=""
  417. 16115 gosub10800:print"dm ";
  418. 16116 geta$:ifa$<>chr$(20)then16119
  419. 16117 iflen(b$)>0thenprint"[157] [157]";:b$=left$(b$,len(b$)-1)
  420. 16118 goto16116
  421. 16119 ifa$<>""anda$<>chr$(13)thenifasc(a$)<48orasc(a$)>57then16116
  422. 16120 printa$;:ifa$=chr$(13)andlen(b$)>0then16122
  423. 16121 b$=b$+a$:goto16116
  424. 16122 pt=val(b$)
  425. 16125 gosub17000
  426. 16130 ifa$="j"thengosub10000:gosub8000:gosub7000
  427. 16135 fora=1to3000:next:return
  428. 16140 gosub10800:print"gegen welche ?":gosub19000:iffe=1then16500
  429. 16145 z6=i:j=i
  430. 16150 ifbe(j)<>zthen16500
  431. 16155 fork=0toko(fa(j))-1:b(k)=st(fa(j),k)
  432. 16160 nextk
  433. 16165 ifsb(j)>0orsb(b(1))>0then16500
  434. 16170 ifm=2andsb(b(2))>0then16500
  435. 16180 gosub17500:goto16130
  436. 16500 gosub10800:print"falsche eingabe!":fora=1to1500:next:gosub10900
  437. 16510 return
  438. 17000 gosub10900:gosub10800:print""sp$(z)" will":gosub10800
  439. 17002 print"von "sp$(z4)" "ar$(z7)
  440. 17005 a$=""
  441. 17010 gosub10800:print""sn$(z7):gosub10800:print"fuer dm"pt
  442. 17015 gosub10800:print"(j/n)?"
  443. 17020 ifz4>anthen17100
  444. 17024 tm$=ti$
  445. 17025 geta$:ifa$=""then17025
  446. 17026 ti$=tm$
  447. 17030 ifa$="j"then17050
  448. 17035 ifa$="n"then17045
  449. 17040 goto17024
  450. 17045 gosub10800:print"nein!":return
  451. 17050 ifge(z)<ptthengosub10800:print"zu wenig geld! "
  452. 17051 ifge(z)<ptthenreturn
  453. 17055 gosub10800:print"ja!"
  454. 17060 be(z7)=z
  455. 17061 ifhy(z7)=0thenkp(z,fa(z7))=kp(z,fa(z7))+1
  456. 17063 ifhy(z7)=0thenkp(z4,fa(z7))=kp(z4,fa(z7))-1
  457. 17065 ge(z)=ge(z)-pt:ge(z4)=ge(z4)+pt:return
  458. 17100 ifkp(z,fa(z7))=ko(fa(z7))-1thena$="n"
  459. 17105 ifkp(z4,fa(z7))>1thena$="n"
  460. 17110 m=0
  461. 17115 forj=1to8:ifkp(z4,j)=ko(j)thenm=m+1
  462. 17120 nextj:ifm<2andpt<3*pr(z7)thena$="n"
  463. 17125 ifpt<2*pr(z7)thena$="n"
  464. 17130 ifpt>3*pr(z7)andrnd(1)<.5thena$="n"
  465. 17132 ifge(z4)>3000thena$="n"
  466. 17135 ifa$<>"n"thena$="j"
  467. 17140 goto17030
  468. 17500 r=pr(z7)-pr(z6):a$=""
  469. 17505 ifr>0andge(z)<rthenreturn
  470. 17510 gosub10900:gosub10800:print""sp$(z)" will":gosub10800
  471. 17512 print"von "sp$(z4)" "ar$(z7):gosub10800
  472. 17513 ifr>=0then17520
  473. 17515 print""sn$(z7)" +":gosub10800:print""abs(r)"dm gegen "ar$(z6)
  474. 17517 gosub10800:print""sn$(z6)
  475. 17518 goto17525
  476. 17520 gosub10800:print""sn$(z7):gosub10800:print"gegen dm"abs(r)
  477. 17522 gosub10800:print"+ "sn$(z6)
  478. 17525 gosub10800:print"(j/n)?"
  479. 17530 ifz4>anthen17600
  480. 17534 tm$=ti$
  481. 17535 geta$:ifa$=""then17535
  482. 17536 ti$=tm$
  483. 17540 ifa$="j"then17555
  484. 17545 ifa$="n"then17552
  485. 17550 goto17534
  486. 17552 gosub10800:print"nein!":return
  487. 17555 gosub10800:print"ja!"
  488. 17556 ifr>0andge(z)<rthengosub10800:print"zu wenig geld":goto17575
  489. 17557 ifr<0andge(z4)<(-r)thengosub10800:print"zu wenig geld":goto17575
  490. 17560 be(z7)=z:be(z6)=z4
  491. 17561 ifhy(z7)=0thenkp(z,fa(z7))=kp(z,fa(z7))+1
  492. 17563 ifhy(z7)=0thenkp(z4,fa(z7))=kp(z4,fa(z7))-1
  493. 17565 ifhy(z6)=0thenkp(z4,fa(z6))=kp(z4,fa(z6))+1
  494. 17567 ifhy(z6)=0thenkp(z,fa(z6))=kp(z,fa(z6))-1
  495. 17570 ge(z)=ge(z)-r:ge(z4)=ge(z4)+r
  496. 17575 return
  497. 17600 ifkp(z,fa(z7))-ko(fa(z7))<=kp(z4,fa(z6))-ko(fa(z6))thena$="j"
  498. 17602 ifa$<>"j"thena$="n"
  499. 17605 ifr<0andge(z4)<abs(r)thena$="n"
  500. 17610 goto17540
  501. 18000 ifge(z)<z9then18015
  502. 18005 ifz>anthengosub10000:gosub8000
  503. 18010 v=0:fora=1to1000:next:return
  504. 18015 q=0
  505. 18020 fori=1to40
  506. 18025 ifbe(i)=zthenq=1
  507. 18030 nexti
  508. 18035 ifq=0then27000
  509. 18040 gosub18100:gosub7000:goto18000
  510. 18100 ifz>anthen18500
  511. 18105 gosub10900:gosub10800:print"haeuser verk. -> v"
  512. 18110 gosub10800:print"hypothek aufn.-> h"
  513. 18115 gosub10800:print"strasse verk. -> s"
  514. 18120 gosub10800:print"schuld:"z9
  515. 18124 tm$=ti$
  516. 18125 geta$:ifa$=""then18125
  517. 18126 ti$=tm$
  518. 18127 ifa$="v"then18300
  519. 18128 ifa$="h"then18200
  520. 18129 ifa$<>"s"then18124
  521. 18130 gosub10900:gosub10800:print"welche strasse":gosub10800:print"willst du"
  522. 18135 gosub10800:print"verkaufen?"
  523. 18140 gosub19000:iffe=1then18105
  524. 18142 ifbe(i)<>zthen18400
  525. 18144 forj=0to2
  526. 18146 b(j)=st(fa(i),j)
  527. 18148 nextj
  528. 18150 q=0
  529. 18152 forj=0toko(fa(i))
  530. 18154 ifsb(b(j))>0thenq=1
  531. 18156 nextj
  532. 18160 ifq=1then18400
  533. 18165 be(i)=5
  534. 18170 ge(z)=ge(z)+pr(i)*(1+(.5*(hy(i)=1)))
  535. 18172 ifhy(i)=0thenkp(z,fa(i))=kp(z,fa(i))-1
  536. 18175 hy(i)=0:gosub10000:gosub8000:return
  537. 18200 gosub10900:gosub10800:print"auf welche":gosub10800:print"strasse willst"
  538. 18205 gosub10800:print"du eine hypothek":gosub10800:print"aufnehmen?"
  539. 18210 gosub19000:iffe=1then18105
  540. 18215 ifbe(i)<>zthen18400
  541. 18220 forj=0toko(fa(i))-1
  542. 18225 b(j)=st(fa(i),j)
  543. 18230 nextj
  544. 18235 q=0
  545. 18240 forj=0toko(fa(i))-1
  546. 18245 ifsb(b(j))>0thenq=1
  547. 18250 nextj
  548. 18255 ifq=1then18400
  549. 18260 ifhy(i)=1then18400
  550. 18265 ge(z)=ge(z)+.5*pr(i)
  551. 18267 kp(z,fa(i))=kp(z,fa(i))-1
  552. 18270 hy(i)=1:gosub10000:gosub8000:return
  553. 18300 gosub10900:gosub10800:print"auf welchem":gosub10800:print"strassenzug
  554. 18305 [141]10800:[153]"willst du haeuser":[141]10800:[153]"verkaufen?"
  555. 18310 [141]10800:[153]"(die 1. angeben)"
  556. 18315 [141]19000:[139]fe[178]1[167]18105
  557. 18325 [129]j[178]0[164]ko(fa(i))[171]1
  558. 18330 b(j)[178]st(fa(i),j)
  559. 18332 [130]j
  560. 18335 [141]10900
  561. 18337 [129]j[178]0[164]ko(fa(i))[171]1
  562. 18340 [141]10800:[153][200](un$,j[170]1)sn$(b(j))":"
  563. 18345 [161]a$:[139]a$[178]""[167]18345
  564. 18347 [139][198](a$)[179]48[176][198](a$)[177]53[167]18345
  565. 18350 w(j)[178][197](a$):[141]10800:[153][200](un$,j[170]1)""w(j)
  566. 18355 c(j)[178]sb(b(j))[171]w(j)
  567. 18360 [130]j
  568. 18370 [139][182](c(0)[171]c(1))[177]1[167]18400
  569. 18372 [139]ko(fa(i))[178]3[175][182](c(0)[171]c(2))[177]1[167]18400
  570. 18374 [139]ko(fa(i))[178]3[175][182](c(1)[171]c(2))[177]1[167]18400
  571. 18376 w[178]w(0)[170]w(1)[170]w(2)
  572. 18378 [129]j[178]0[164]ko(fa(i))[171]1
  573. 18380 sb(b(j))[178]sb(b(j))[171]w(j)
  574. 18385 [130]j
  575. 18390 ge(z)[178]ge(z)[170]w[172]500[172][181]((fa(i)[170]1)[173]2)
  576. 18395 gt[178]gt[171]w:z4[178]i:[141]10000:[141]8000:[137]18965
  577. 18400 [141]10900:[141]10800:[153]"das geht nicht!"
  578. 18405 [129]a[178]1[164]1500:[130]:[137]18105
  579. 18500 z4[178]0:o[178]1
  580. 18505 [129]b[178]1[164]10:[129]c[178]0[164]ko(b)[171]1:i[178]st(b,c):[139]z4[179][177]0[167]18514
  581. 18510 [139]v[177]0[167][141]18615:[137]18514
  582. 18512 [145]o[141]18525,18540,18555,18570,18585,18600,18615,18630,18645
  583. 18514 [130]c,b
  584. 18516 [139]z4[179][177]0[167][145]z5[137]18900,18920,18940
  585. 18518 o[178]o[170]1:[139]o[179]10[167]18505
  586. 18520 [142]
  587. 18525 [139](fa(i)[178]9[176]fa(i)[178]10)[175]be(i)[178]z[175]hy(i)[178]0[167]z4[178]i:z5[178]1
  588. 18526 [142]
  589. 18540 [139]kp(z,fa(i))[178]1[175]be(i)[178]z[175]hy(i)[178]0[167]z4[178]i:z5[178]1
  590. 18541 [142]
  591. 18555 [139]kp(z,fa(i))[178]2[175]ko(fa(i))[178]3[175]be(i)[178]z[175]hy(i)[178]0[167]z4[178]i:z5[178]1
  592. 18556 [142]
  593. 18570 [139](fa(i)[178]9[176]fa(i)[178]10)[175]be(i)[178]z[167]z4[178]i:z5[178]2
  594. 18571 [142]
  595. 18585 [139]kp(z,fa(i))[178]0[175]be(i)[178]z[175]hy(i)[178]1[167]z4[178]i:z5[178]2
  596. 18586 [142]
  597. 18600 [139]kp(z,fa(i))[178]0[175]ko(fa(i))[178]3[175]be(i)[178]z[175]hy(i)[178]1[167]z4[178]i:z5[178]2
  598. 18601 [142]
  599. 18615 [139]kp(z,fa(i))[179]ko(fa(i))[167][142]
  600. 18616 v[178]0:[129]j[178]0[164]ko(fa(i))[171]1
  601. 18617 b(j)[178]st(fa(i),j)
  602. 18618 v[178]v[170]sb(b(j))
  603. 18619 [130]j
  604. 18620 [139]v[178]0[167][142]
  605. 18621 m[178]0
  606. 18622 [129]j[178]0[164]ko(fa(i))[171]1
  607. 18623 [139]sb(b(j))[177]m[167]m[178]sb(b(j)):z4[178]b(j)
  608. 18624 [130]j:z5[178]3:[142]
  609. 18630 [139]be(i)[178]z[175]hy(i)[178]0[167]z4[178]i:z5[178]1
  610. 18631 [142]
  611. 18645 [139]be(i)[178]z[167]z4[178]i:z5[178]2
  612. 18646 [142]
  613. 18900 [141]10900:[141]10800:[153]""sp$(z)" nimmt":[141]10800
  614. 18902 [153]"hypothek auf "ar$(z4):[141]10800:[153]""sn$(z4)"
  615. 18905 gosub10800:print"auf.":gosub10800:print"schuld:"z9
  616. 18910 ge(z)=ge(z)+.5*pr(z4)
  617. 18913 kp(z,fa(z4))=kp(z,fa(z4))-1
  618. 18915 hy(z4)=1:return
  619. 18920 gosub10900:gosub10800:print""sp$(z):gosub10800
  620. 18922 print"verkauft "ar$(z4):gosub10800
  621. 18925 print""sn$(z4)
  622. 18930 gosub10800:print"schuld:"z9
  623. 18932 ge(z)=ge(z)+.5*pr(z4)
  624. 18933 ifhy(z4)=0thenkp(z,fa(z4))=kp(z,fa(z4))-1
  625. 18935 be(z4)=5:hy(z4)=0:return
  626. 18940 gosub10900:gosub10800:print""sp$(z)" verkauft":gosub10800
  627. 18942 print"ein haus auf "at$(z4):gosub10800:print""sn$(z4)
  628. 18945 gosub10800:print"schuld:"z9
  629. 18950 sb(z4)=sb(z4)-1:v=v-1
  630. 18955 ge(z)=ge(z)+int((fa(z4)+1)/2)*500
  631. 18960 gt=gt-1
  632. 18965 return
  633. 19000 fe=0
  634. 19002 getb$:ifb$=""then19000
  635. 19005 getc$:ifc$=""then19005
  636. 19010 getd$:ifd$=""then19010
  637. 19015 a$=b$+c$+d$
  638. 19020 ifa$="sch"then19100
  639. 19025 ifa$="hau"then19130
  640. 19030 i=0
  641. 19035 i=i+1:ifi=41then19045
  642. 19040 ifleft$(sn$(i),3)<>a$then19035
  643. 19045 ifi=41then19300
  644. 19050 goto19180
  645. 19100 getb$:ifb$=""then19100
  646. 19105 ifb$="l"theni=40:goto19180
  647. 19110 ifb$<>"i"then19300
  648. 19115 i=27:goto19180
  649. 19130 getb$:ifb$=""then19130
  650. 19135 getb$:ifb$=""then19135
  651. 19140 getb$:ifb$=""then19140
  652. 19145 ifb$="s"theni=33:goto19180
  653. 19150 ifb$<>"b"then19300
  654. 19155 i=36:goto19180
  655. 19180 a$=sn$(i)
  656. 19190 gosub10800:print""a$
  657. 19195 return
  658. 19300 fe=1:return
  659. 19500 ifge(z)>pythenpj=0:return
  660. 19510 pj=1:gosub10800:print""sp$(z)" hat nicht":gosub10800
  661. 19515 print"genug geld."
  662. 19520 return
  663. 20000 tt=val(left$(ti$,2))*60+val(mid$(ti$,3,2))
  664. 20002 print"[151]"tr$tu$;"     [157][157][157][157][157]"str$(ru-tt)
  665. 20005 print"[151]"fr$fu$;"      [157][157][157][157][157][157]"str$(fp)
  666. 20010 return
  667. 20500 ifpo(z)=39thengoto20520
  668. 20505 gosub10900:gosub10800:print""sp$(z)" muss"
  669. 20510 gosub10800:print"4000 dm zahlen."
  670. 20515 bz=4000:goto20550
  671. 20520 gosub10900:gosub10800:print""sp$(z)" muss"
  672. 20525 gosub10800:print"2000 dm zahlen."
  673. 20530 bz=2000:goto20550
  674. 20550 ifbz>ge(z)thenz9=bz:gosub18000
  675. 20555 ge(z)=ge(z)-bz:fp=fp+bz:return
  676. 21000 gosub22000:gw(z)=gw(z)+1
  677. 21010 ifwp$="pasch"thenpg(z)=0:gw(z)=0:gosub21100:goto3105
  678. 21015 ifgw(z)=3thengw(z)=0:pg(z)=0:z9=1000:gosub21150:goto21040
  679. 21020 ifff(z)=1thenpg(z)=0:gw(z)=0:ff(z)=0:goto21065
  680. 21021 gosub10900:gosub10800:print"willst du dich":gosub10800
  681. 21022 print"fuer dm 1000":gosub10800:print"freikaufen ?":gosub10800
  682. 21023 print"(j/n)";:ifz>anthen21030
  683. 21024 tm$=ti$
  684. 21025 geta$:ifa$<>"j"anda$<>"n"then21025
  685. 21026 ti$=tm$
  686. 21027 ifa$="j"andge(z)>=1000thengw(z)=3:print" ja!":fora=1to1000:next:goto21015
  687. 21028 print" nein!":fora=1to1000:next:goto3235
  688. 21030 ifgt>10orge(z)<1000thena$="n"
  689. 21031 ifge(z)>1000and(wu=10orwu=7)thena$="j"
  690. 21032 ifa$="n"thenprint" nein!":fora=1to1000:next:goto3235
  691. 21033 print" ja!"
  692. 21035 fora=1to1000:next:gw(z)=3:goto21015
  693. 21040 ifge(z)<z9thengosub18000
  694. 21045 ifz2=1then3235
  695. 21050 ge(z)=ge(z)-1000:goto3105
  696. 21065 gosub10900:gosub10800:print"e/g-karte:"
  697. 21066 gosub10800:print"du kommst aus":gosub10800:print"dem gefaengnis"
  698. 21067 gosub10800:print"frei."
  699. 21070 goto3105
  700. 21100 gosub10900:gosub10800:print"* pasch *"
  701. 21105 gosub10800:print"du kommst aus":gosub10800:print"dem gefaengnis"
  702. 21110 gosub10800:print"frei."
  703. 21115 return
  704. 21150 gosub10900:gosub10800:print"du kommst fuer"
  705. 21155 gosub10800:print"1000 dm aus dem":gosub10800:print"gefaengnis frei"
  706. 21160 return
  707. 21999 goto3100
  708. 22000 gosub10900
  709. 22005 gosub10800:print"* wuerfeln *"
  710. 22010 ifz>anor(pg(z)=0andwp$="")then22025
  711. 22015 gosub10800:print"[146]return"
  712. 22019 tm$=ti$
  713. 22020 geta$:ifa$<>chr$(13)then22020
  714. 22021 ti$=tm$:gosub10800:print"      "
  715. 22025 w(1)=6:w(2)=6
  716. 22030 b(1)=int(rnd(1)*12)+13
  717. 22040 b(2)=int(rnd(1)*12)+13
  718. 22045 ifb(1)>=b(2)thenx=b(1):goto22050
  719. 22046 x=b(2)
  720. 22050 fory=1tox:fori=1to2
  721. 22052 ify>b(i)then22056
  722. 22055 w(i)=w(i)-1:ifw(i)=0thenw(i)=6
  723. 22056 nexti
  724. 22057 print""left$(re$,21)left$(un$,22);
  725. 22058 onw(1)gosub22200,22210,22220,22230,22240,22250
  726. 22059 print""left$(re$,25)left$(un$,22);
  727. 22060 onw(2)gosub22200,22210,22220,22230,22240,22250
  728. 22065 nexty
  729. 22070 ifw(1)=w(2)thenwp$="pasch"
  730. 22072 ifw(1)<>w(2)thenwp$=""
  731. 22075 ifwp$="pasch"thenp=p+1:ifp=3thenpg(z)=1:wu=11-po(z):ifwu<0thenwu=wu+40
  732. 22080 ifp=3then22100
  733. 22085 wu=w(1)+w(2)
  734. 22090 return
  735. 22100 gosub10900:gosub(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)g(NULL)(NULL)(NULL)(NULL)(NULL)pokeread(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)poke(NULL)(NULL)(NULL)(NULL)(NULL)let(NULL)gWpokeprint(NULL)(NULL)(NULL)print(NULL)(NULL)usr(NULL)read(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)printx(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)print#(NULL)(NULL)print#(NULL)(NULL)(NULL)(NULL)print#(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)print#(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)let(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)print#(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)let(NULL)(NULL)(NULL)(NULL)read(NULL)G(NULL)(NULL)(NULL)(NULL)save(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)let(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)save(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)let(NULL)(NULL)(NULL)(NULL)then(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)save(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)chr$
  736.